# NOT RUN {
type = soil.USDAType(clay=10, sand=70)
soil.vanGenuchtenParams(type)
psi = seq(0, -6000, by=-100)
plot(psi, lapply(as.list(psi), FUN=soil.psi2theta, clay=70, sand=10),
type="l", ylim=c(0,0.5), ylab="Theta")
lines(psi, lapply(as.list(psi), FUN=soil.psi2theta, clay=10, sand=70), lty=2)
# }
Run the code above in your browser using DataLab